Option Explicit
Sub A_Sample021()
    Dim myRng As Range
    Set myRng = Columns(1).Find(What:="*", After:=Range("A1"), _
        LookIn:=xlFormulas, SearchDirection:=xlPrevious)
    If myRng Is Nothing Then
        MsgBox "SJ"
    Else
        MsgBox myRng.Address
    End If
End Sub
